﻿' LibWowArmory
' by Ronald M. Clifford (roncli@roncli.com)
'
' This source code is released under the GNU Library General Public License (LGPL) Version 2.1.

Imports Newtonsoft.Json
Imports System.Collections.Generic

Namespace roncliProductions.LibWowArmory.CalendarMonthUserSchema

    Public Class [event]

        Private strCalendarType As String
        Private strIcon As String
        Private intID As Integer
        Private blnModerator As Boolean
        Private lngStart As Long
        Private strStatus As String
        Private strSummary As String
        Private strType As String

        <JsonProperty("calendarType")> Public Property calendarType() As String
            Get
                Return strCalendarType
            End Get
            Set(ByVal value As String)
                strCalendarType = value
            End Set
        End Property

        <JsonProperty("icon")> Public Property icon() As String
            Get
                Return strIcon
            End Get
            Set(ByVal value As String)
                strIcon = value
            End Set
        End Property

        <JsonProperty("id")> Public Property id() As Integer
            Get
                Return intID
            End Get
            Set(ByVal value As Integer)
                intID = value
            End Set
        End Property

        <JsonProperty("moderator")> Public Property moderator() As Boolean
            Get
                Return blnModerator
            End Get
            Set(ByVal value As Boolean)
                blnModerator = value
            End Set
        End Property

        <JsonProperty("start")> Public Property start() As Long
            Get
                Return lngStart
            End Get
            Set(ByVal value As Long)
                lngStart = value
            End Set
        End Property

        <JsonProperty("status")> Public Property status() As String
            Get
                Return strStatus
            End Get
            Set(ByVal value As String)
                strStatus = value
            End Set
        End Property

        <JsonProperty("summary")> Public Property summary() As String
            Get
                Return strSummary
            End Get
            Set(ByVal value As String)
                strSummary = value
            End Set
        End Property

        <JsonProperty("type")> Public Property type() As String
            Get
                Return strType
            End Get
            Set(ByVal value As String)
                strType = value
            End Set
        End Property

    End Class

End Namespace